Написать программу движения точки по экрану- QBasic(Бейсик)

CLS
SCREEN 12
FOR x=30 to 400
CIRCLE(x-1,100),10
PAINT(x-1,100),0,0
FOR t=1 to 300
CIRCLE(x,100),10,3
PAINT(x,100),3,3
NEXT t
NEXT x
END